home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / dia viewer100x80 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  532b  |  17 lines
  1. 3 ifc=1then35
  2. 5 j=j+1:ifj=1thenload"zsatz",8,8
  3. 10 a=a+1:ifa=1thenload"mpmloader",8,8
  4. 12 input"[147]hintergrund";a:poke53281,a
  5. 13 input"vordergrund";a
  6. 14 print"handelt es sich um farbbilder (j/n)":poke198,0:wait198,1:getf$
  7. 15 input"[147]diskette mit lores-bild. einlegen";a$
  8. 16 poke646,a
  9. 17 print"[147]bitte warten"
  10. 18 fort=55296to55296+999:poket,a:next:t=0:d=1:dim a$(100):poke53272,24
  11. 19 read a$(d):d=d+1:ifa$(d-1)<>"*"then19
  12. 20 t=t+1:ifa$(t)="*"thent=0:goto20
  13. 30 poke252,4:poke251,0:sys828,a$(t):iff$="j"thenc=1:c$=a$(t)+".":loadc$,8,8
  14. 35 poke198,0:wait198,1:geta$
  15. 40 goto20
  16. 100 data steger,asterix,*
  17.